home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / TABELA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-01-21  |  1.1 KB  |  37 lines
  1. {$M $800, 0, 0}  { 2K stack ayrìldì }
  2. { Ekranìn saº üst köƒesinde kalìcì  }
  3. { bir yazì kalmasìnì saºlar.        }
  4. Uses Crt, Dos;
  5. Var
  6.    EskiSaat:Procedure;
  7.  
  8. {$F+}
  9. Procedure Hello; Interrupt;
  10. Var 
  11.    X, Y: Byte;
  12. Begin
  13.                   { Hello procedur'ü çalìƒmadan önce }
  14.     X := WhereX;  { Cursor'ün bulunduºu kolon        }
  15.     Y := WhereY;  { Cursor'ün bulunduºu satìr        }
  16.                   { Deºerleri saklanìyor..!          }
  17.                   
  18.     GotoXY(74, 1);    { Cursor ekranìn en saº üst köƒesine   }
  19.     Write('Merhaba'); { yakìn bir yere gidip 'Merhaba' yazar }
  20.     GotoXY(X, Y);     { Daha sonra eski cursor deºerleri     }
  21.                       { kullanìlarak cursor konumlandìrìlìr  }
  22.     InLine($9C);      
  23.     { Daha önceden sakladìºìmìz saat procedur'ü çalìƒìyor }
  24.     EskiSaat;
  25. End;
  26. {$F-}
  27.  
  28. Begin
  29.     { 8. saat interrupt'ì EskiSaat ismi adì altìnda saklanìyor. }
  30.     GetIntVec(8, @EskiSaat);
  31.     
  32.     { Yeni yaptìºìmìz procedur 8. interrupt'ta yerleƒiyor. }
  33.     SetIntVec(8, @Hello);
  34.     
  35.     { Program ƒu anda KEEP komutuyla kalìcì bir hal aldì. }
  36.     Keep(0);
  37. End.